home *** CD-ROM | disk | FTP | other *** search
/ Aminet 8 / Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso / Aminet / comm / fido / MM_ScriptSet1.lha / MM_FindSpotPirates.rexx < prev    next >
OS/2 REXX Batch file  |  1995-08-14  |  4KB  |  117 lines
  1. /*
  2.  
  3. MM_FindSpotPirates.rexx v1.0 by Tomasz Nidecki
  4.  
  5. There appears to be a pirate keyfile for "Spot" going around
  6. in Europe, which is especially visible in Poland. The key
  7. has a number of #118. It is a so-called "revenge key" due to
  8. the fact that Nico Francois, the creator of Spot has
  9. supposively stopped working on an Amiga, which is not
  10. confirmed by Nico himself. The original owner of the key, a
  11. Belgian, supposively sold his Amiga and the key leaked out.
  12.  
  13. Since piracy on FIDO is illegal and non-confirmant with the
  14. FIDO policy, I have prepared this robot for Mail Manager
  15. which finds the Spot pirate keyfile in message taglines and
  16. PID kludges and then sends a message to a Boss or an NC of
  17. the point/node who commited the crime of using this file.
  18.  
  19. All nodes using Mail Manager, please, run this program
  20. before your mail is exported in all areas where you suspect
  21. such a key might be used. This will help fight shareware
  22. piracy which is aimed against us all shareware authors.
  23. Thank you.
  24.  
  25. Usage: rx MM_FindSpotPirates.rexx <echo_tag> <matrix_tag>
  26.  
  27. Repeat for each echo area, make sure the area is two-pass import.
  28. Matrix_tag is the tag for the matrix area for the net that the
  29. echo_tag belongs to.
  30.  
  31. Please feel free to modify the text of the message to put it
  32. in your language or make it suit your needs or your style :)
  33. You can also modify and use this robot if other pirate
  34. keyfiles appear on networks, which I hope never will.
  35.  
  36. */
  37.  
  38. address MAILMANAGER
  39.  
  40. PARSE ARG area_tag matrix_tag
  41.  
  42. MM_SearchMsgs area_tag search_stem '#?' '#?' '#?' !SENT
  43.  
  44. DO msg_num = 0 FOR search_stem.count
  45.  
  46.   MM_ReadMsg area_tag search_stem.msg_num read_stem
  47.  
  48.   MM_SearchInStem read_stem.foot found_stem '#?Spot#?118#?' STR
  49.   MM_SearchInStem read_stem.head found_stem2 '#?PID#?Spot#?118#?' STR
  50.  
  51.   IF ((found_stem.count ~= 0) | (found_stem2.count ~= 0)) THEN
  52.   DO
  53.  
  54.     header_stem.0 = '-------------------------------------------------------------'
  55.     header_stem.1 = 'This message was sent by MM_FindSpotPirates message robot'
  56.     header_stem.2 = 'Author of the original message: 'read_stem.from ' ' read_stem.fromaddr
  57.     header_stem.3 = 'Adressee of the original message: 'read_stem.to
  58.     header_stem.4 = 'Subject of the message: 'read_stem.subj
  59.     header_stem.5 = 'Area where the message was found: 'area_tag
  60.     header_stem.6 = 'Date when message was found: 'read_stem.date
  61.     header_stem.7 = '-------------------------------------------------------------'
  62.     header_stem.8 = 'The included message contains the evidence of using a pirate'
  63.     header_stem.9 = 'keyfile for *Spot* integrated Tosser/Scanner/Editor. This is not'
  64.     header_stem.10 = 'only non-confirmant with FIDO/Amiganet Policy but also highly'
  65.     header_stem.11 = 'illegal and immoral. Please intervene, as the author of this'
  66.     header_stem.12 = 'message falls under your responsibility. Thank you.'
  67.     header_stem.13 = '-------------------------------------------------------------'
  68.     header_stem.14 = ''
  69.     header_stem.15 = '-------------- BEGINNING OF INCLUDED MESSAGE  ---------------'
  70.     header_stem.16 = ''
  71.     header_stem.count = 17
  72.     now_at_line = read_stem.foot.count
  73.     read_stem.foot.now_at_line = ''
  74.     now_at_line = now_at_line + 1
  75.     read_stem.foot.now_at_line = '------------------- END OF INCLUDED MESSAGE -------------------'
  76.     read_stem.foot.count = read_stem.foot.count+2
  77.  
  78.     MM_WriteStem 't:mm.trans' header_stem
  79.     MM_WriteStem 't:mm.trans' read_stem.text APPEND
  80.     MM_WriteStem 't:mm.trans' read_stem.foot APPEND
  81.  
  82.     boss = FindBoss(read_stem.fromaddr)
  83.  
  84.     write_stem.from = 'MM_FindSpotPirates'
  85.     write_stem.fromaddr = '2:480/78.0@fidonet'
  86.     write_stem.to = 'Dear Sysop!'
  87.     write_stem.toaddr = boss
  88.     write_stem.subj = 'URGENT! Illegal activities!'
  89.     write_stem.flags = 'PVT KILL'
  90.  
  91.     MM_WriteMsg matrix_tag write_stem
  92.  
  93.   END
  94.  
  95. END
  96.  
  97. EXIT
  98.  
  99. /*
  100. **
  101. */
  102.  
  103. FindBoss: PROCEDURE
  104.  
  105. PARSE ARG zone ':' net '/' node '.' point '@' domain
  106.  
  107. IF point ~= '0' THEN
  108. DO
  109.   BossNode = zone':'net'/'node'@'domain
  110. END
  111. ELSE
  112. DO
  113.   BossNode = zone':'net'/0@'domain
  114. END
  115.  
  116. RETURN BossNode
  117.